home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / CBS.LSP < prev    next >
Text File  |  1992-03-14  |  875b  |  32 lines
  1. ;Change Block Scale
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. ;
  7. (Defun c:cbs()
  8. (setq oer *error* *error* err2)
  9. (setq ss(ssget))
  10. (initget(+ 1 2 4))
  11. (setq h(getreal "Enter new scale: "))
  12. (setq counter 0)
  13. (prompt "changing scale...")
  14. (while(setq e(ssname ss counter))
  15. (setq etype(cdr(assoc 0(entget e))))
  16. (progn(setq entity(entget e))
  17. (setq old(assoc 41 entity))
  18. (setq new(cons(car old)h))
  19. (setq newentity(subst new old entity))
  20. (entmod newentity)
  21. (setq entity(entget e))
  22. (setq old(assoc 42 entity))
  23. (setq new(cons(car old)h))
  24. (setq newentity(subst new old entity))
  25. (entmod newentity)
  26. (setq entity(entget e))
  27. (setq old(assoc 43 entity))
  28. (setq new(cons(car old)h))
  29. (setq newentity(subst new old entity))
  30. (entmod newentity))
  31. (setq counter(+ counter 1))
  32. (princ)))